What’s this? An unnumbered Tidy Tuesday post? With a pun as the title? That’s right, folks! I’ve acheived maximum power. I’ve decided that without the constraints of a number, I can do any Tidy Tuesday set I want! And there’s nothing any of you can do to stop me!
Realistically, I’d like to stay pretty close to the week these are released. But we’re close, you and I, aren’t we? We both know that’s not going to happen. I know it’s been nearly a 6 month hiatus, but we’re back, baby! So come and knock on our door, we’ve been waiting for you.
Today we’re looking at:
I’m assuming we all know what trees are. This data was sourced from San Francisco’s open data portal, and lists all trees maintained by the San Francisco Department of Public Works (DPW.)
sf_trees <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-01-28/sf_trees.csv')
## Observations: 192,987
## Variables: 12
## $ tree_id <dbl> 53719, 30313, 30312, 30314, 30315, 30316, 48435, 30319...
## $ legal_status <chr> "Permitted Site", "Permitted Site", "Permitted Site", ...
## $ species <chr> "Tree(s) ::", "Tree(s) ::", "Tree(s) ::", "Pittosporum...
## $ address <chr> "2963 Webster St", "501 Arkansas St", "501 Arkansas St...
## $ site_order <dbl> 1, 3, 2, 1, 5, 6, 4, 2, 1, 3, 1, 3, 1, 2, 4, 1, 1, 1, ...
## $ site_info <chr> "Sidewalk: Curb side : Cutout", "Sidewalk: Curb side :...
## $ caretaker <chr> "Private", "Private", "Private", "Private", "Private",...
## $ date <date> 1955-09-19, 1955-10-20, 1955-10-20, 1955-10-20, 1955-...
## $ dbh <dbl> NA, NA, NA, 16, NA, NA, NA, NA, NA, NA, 2, NA, NA, NA,...
## $ plot_size <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA...
## $ latitude <dbl> 37.79787, 37.75984, 37.75984, 37.75977, 37.79265, 37.7...
## $ longitude <dbl> -122.4341, -122.3981, -122.3981, -122.3981, -122.4124,...
Right off the bat, we see that some of these trees were planted all the way back in 1955. We’ve got a big gap between 1956 and 1969, but given that this data only started being recorded in 2012, I’m going to assume that’s just a lapse and not that San francisco managed to not plant any trees for 11 years. Similarly, I find it hard to believe that only 1 tree was planted in 1971. There are also spikes in 1998 and 2008. Evidently, there was a huge storm driven by El Nino in 1998 that could have potentially uprooted trees and necessitated replanting. Let’s take a look at 1998 compared to the surrounding years to see if there was an influx of planting after the storm.
While I don’t really see a common pattern across these 5 years, it’s pretty clear that there were higher sustained plantings throughout the entire year of 1998. I’m curious if the spike in 2008 has the same pattern.
Not entirely. Much lower numbers for May in 2008, but higher sustained numbers early in the year. 2008 is interesting on its own, however, because it was year 4 of a 5 year initiative to plant 25000 trees. 2008 shifted strongly toward street trees, which is what this dataset consists of. Comparing annual totals to those in the report shows a mismatch in sums, likely due to a difference in what is considered a year.
So where is it exactly that we’re seeing these trees being planted? Well, let’s look at this shitty little animation that I made before I link to someone actually skillful doing something similar.